home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / Blitz.AMOS / Blitz.amosSourceCode
AMOS Source Code  |  1997-04-18  |  419b  |  16 lines
  1. Screen Open 0,320,192,4,0
  2. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  3. Palette 0,$FFF,$FF,$F
  4. M=40
  5. Dim P(M,2)
  6. P=0 : P(0,0)=200 : P(0,1)=0 : P(0,2)=59
  7. Do 
  8.   Ink 3-P(P,2)/20
  9.   Gr Locate P(P,0),P(P,1)
  10.   Add P(P,1),Rnd(10)+1
  11.   Add P(P,0),Rnd(10)-6
  12.   If Rnd(4)=0 and D<M Then Inc D : P(D,0)=P(P,0) : P(D,1)=P(P,1) : P(D,2)=(P(P,2)*6)/7+1
  13.   Dec P(P,2)
  14.   Draw To P(P,0),P(P,1)
  15.   If P(P,2)=0 Then Inc P : If P=M Then Exit 
  16. Loop